home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aah.d64 / jerusalem walls (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  205 lines
  1. 1 REM (null)(null)(null)(null)(null)
  2. 2 RR=0
  3. 5 REM (null)
  4. 15 PRINT"[147]":PRINTCHR$(8):PRINTCHR$(142)
  5. 20 POKE53280,6:POKE53281,0
  6. 22 PRINT"   REBUILDING THE WALLS OF JERUSALEM"
  7. 23 PRINT"           BY STEVE WILLIAMS"
  8. 24 PRINT""
  9. 25 FORP=1TO6:GOSUB31:PRINT"[145][145][145][145]":NEXTP
  10. 26 GOTO40
  11. 31 PRINT"";:FORX=1TO16:PRINT"[149][208][146]";:NEXTX:PRINT"      ";
  12. 32 FORU=1TO16:PRINT"[149][208][146]";:NEXTU:PRINT" ":RETURN
  13. 40 FORV=1TO3:GOSUB42:PRINT"[145][145][145][145]":NEXTV
  14. 41 GOTO50
  15. 42 PRINT"";:FORZ=1TO38:PRINT"[149][208][146]";:NEXTZ:PRINT" ":RETURN
  16. 50 PRINT"[145]":PRINT"";:FORWQ=1TO19:PRINT"[223][169]";:NEXTWQ
  17. 60 PRINT"[146][158][219][219][219][219][219][219][157][157][157][157][157][157][219][219][219][219][219][219][157][157][157][157][157][157][219][219][219][219][219][219]"
  18. 62 PRINT"[146][158][219][219][219][219][219][219][157][157][157][157][157][157][219][219][219][219][219][219][157][157][157][157][157][157][219][219][219][219][219][219]"
  19. 65 IFGG=1THEN1290
  20. 90 FORT=1TO3000:NEXTT
  21. 100 NC=0:RR=O
  22. 110 PRINT"[147]":PRINTCHR$(8):PRINTCHR$(142)
  23. 120 POKE53280,0:POKE53281,8
  24. 130 QZ=0:CA=0
  25. 140 PRINT""TAB(3)"REBUILDING THE WALLS OF JERUSALEM"
  26. 150 PRINT""TAB(11)"[158]BY STEVE WILLIAMS"
  27. 160 PRINT" [144]AFTER THE JEWS RETURNED FROM CAPTIVITY"
  28. 170 PRINT" THEY NEEDED TO REBUILD THE WALLS OF"
  29. 180 PRINT" JERUSALEM FOR PROTECTION FROM THEIR"
  30. 190 PRINT" ENEMIES. YOU CAN HELP THEM REBUILD THE"
  31. 200 PRINT" WALLS BY CORRECTLY ANSWERING QUESTIONS"
  32. 210 PRINT" FROM THE BOOK OF NEHEMIAH. EACH TIME"
  33. 220 PRINT" YOU ANSWER A QUESTION WRONG THE WALLS"
  34. 230 PRINT" WILL BEGIN TO CRUMBLE. PRESS THE SPACE[146][144]"
  35. 240 PRINT" BAR[144][146] TO SELECT YOUR ANSWER. PRESS THE"
  36. 250 PRINT" RETURN[144][146] KEY ONCE YOU HAVE CHOSEN YOUR"
  37. 260 PRINT" ANSWER. YOU MAY USE YOUR BIBLE TO"
  38. 270 PRINT" FIND THE CORRECT ANSWERS. THERE ARE 18"
  39. 280 PRINT" QUESTIONS. IT TAKES 10 ROWS OF BLOCKS"
  40. 290 PRINT" TO COMPLETE THE WALLS OF JERUSALEM."
  41. 300 PRINT"      [158]***PRESS ANY KEY TO BEGIN***"
  42. 310 POKE198,0
  43. 320 GETZ$:IFZ$=""THEN320
  44. 330 PRINT"[147]":POKE53280,6:POKE53281,0
  45. 340 PRINT"   [129]REBUILDING THE WALLS OF JERUSALEM"
  46. 350 PRINT"           BY STEVE WILLIAMS[158]"
  47. 360 PRINT"[150]10[157][157]9[157]8[157]7[157]6[157]5[157]4[157]3[157]2[157]1"
  48. 370 QZ=0
  49. 380 READA$,AB$,B$,C$,D$,E$:REM: A$ & AB$ IS QUESTION;B$ IS SCRIPTURE;C$ IS ANSWER
  50. 390 REM: D$ AND E$ ARE POSSIBLE ANSWERS
  51. 400 IFA$="-1"THEN1360
  52. 410 YA$=D$:IFNC-RR=10THEN1260
  53. 420 IFNT=18THEN1150
  54. 430 PRINT"[158]-->[146] -->"
  55. 440 PRINT" [154]";A$
  56. 450 PRINT" ";AB$
  57. 460 PRINT"SCRIPTURE REFERENCE: ";B$
  58. 470 PRINT"[159](PRESS SPACE BAR TO CHANGE ANSWER)"
  59. 480 PRINT"[158]";D$
  60. 490 PRINT"[145]";E$
  61. 500 POKE198,0
  62. 510 GETAN$:IFAN$=""THEN510
  63. 520 IFAN$=CHR$(32)THEN550
  64. 530 IFAN$=CHR$(13)THEN620
  65. 540 GOTO510
  66. 550 REM: MOVE TO DIFFERENT ANSWER
  67. 560 IFYAN$=D$THENYA$=E$:GOTO600
  68. 570 IFYAN$=E$THENYA$=D$:GOTO580
  69. 580 PRINT"-->[146] --> "
  70. 590 GOTO440
  71. 600 PRINT"--> -->[146] "
  72. 610 GOTO440
  73. 620 REM: CHECK ANSWER
  74. 630 NT=NT+1
  75. 640 IFYA$=C$THEN660
  76. 650 IFYA$<>C$THEN740
  77. 660 REM: PRINT CORRECT SUBROUTINE
  78. 670 PRINT"[155]THAT'S CORRECT! LET'S ADD TO THE WALLS.[145][145]"
  79. 680 FORT=1TO200:NEXTT
  80. 690 CA=CA+1
  81. 700 NC=NC+1
  82. 710 GOSUB830
  83. 720 GOSUB970:FORT=1TO500:NEXTT
  84. 730 QZ=0:GOTO1010
  85. 740 REM: PRINT INCORRECT SUBROUTINE
  86. 745 RR=RR+1
  87. 750 IFCA<1THEN810
  88. 760 PRINT"[155]THAT IS WRONG! THE WALLS ARE CRUMBLING."
  89. 780 GOSUB830
  90. 790 GOSUB990:FORT=1TO500:NEXTT
  91. 800 QZ=1:GOTO1010
  92. 810 PRINT"[155]THAT IS INCORRECT!":CA=0:FORT=1TO2400:NEXTT
  93. 820 GOTO1010
  94. 830 REM: POSITION CURSOR TO BUILD
  95. 840 IFCA<1THENCA=1
  96. 850 ONCAGOTO860,870,880,890,900,910,920,930,940,950,960
  97. 860 PRINT"";:RETURN
  98. 870 PRINT"";:RETURN
  99. 880 PRINT"";:RETURN
  100. 890 PRINT"";:RETURN
  101. 900 PRINT"";:RETURN
  102. 910 PRINT"";:RETURN
  103. 920 PRINT"";:RETURN
  104. 930 PRINT"";:RETURN
  105. 940 PRINT"";:RETURN
  106. 950 PRINT"";:RETURN
  107. 960 PRINT"";:RETURN
  108. 970 REM: WALL BUILDING SUBROUTINE
  109. 980 PRINT"";:FORX=1TO38:PRINT"[149][208][146]";:FORT=1TO50:NEXTT:NEXTX:PRINT" ":RETURN
  110. 990 REM: TEAR DOWN WALL SUBROUTINE
  111. 1000 PRINT"";:FORX=1TO38:PRINT"[146] ";:FORT=1TO50:NEXTT:NEXTX:PRINT" ":RETURN
  112. 1010 REM: ERASE BOTTOM OF SCREEN
  113. 1020 IFQZ=1THENCA=CA-1
  114. 1030 PRINT"                                       "
  115. 1040 PRINT"                                       "
  116. 1050 PRINT"                                       "
  117. 1060 PRINT"                                       "
  118. 1070 PRINT"                                       "
  119. 1080 PRINT"                                       "
  120. 1090 PRINT"                                       "
  121. 1100 PRINT"                                       "
  122. 1110 PRINT"                                       [145][145]"
  123. 1120 PRINTCHR$(158)
  124. 1130 GOTO380
  125. 1150 PRINT"[147]":POKE53280,5:POKE53281,0
  126. 1160 PRINT"           YOUR TIME IS UP!!"
  127. 1170 PRINT"      YOUR SCORE WAS"NC"OUT OF 18."
  128. 1180 PRINT"    DO YOU WANT TO PLAY AGAIN? (Y/N)"
  129. 1182 PRINT" OR RETURN TO BIBLE GAMES MAIN MENU (M)"
  130. 1190 POKE198,0
  131. 1200 GETH$:IFH$=""THEN1200
  132. 1210 NT=0
  133. 1220 IFH$="Y"THEN100
  134. 1230 IFH$="N"THEN1250
  135. 1232 IFH$="M"THEN2000
  136. 1240 GOTO1200
  137. 1250 END
  138. 1260 FORT=1TO1000:NEXTT
  139. 1270 PRINT"[147]":POKE53280,5:POKE53281,0
  140. 1280 PRINT"             GOOD WORK!!!!!"
  141. 1285 GG=1
  142. 1287 GOTO24
  143. 1290 PRINT"[154]        YOU HAVE HELPED REBUILD"
  144. 1295 GG=0
  145. 1300 PRINT"[154]        THE WALLS OF JERUSALEM."
  146. 1310 PRINT"    DO YOU WANT TO PLAY AGAIN? (Y/N)"
  147. 1312 PRINT" OR RETURN TO BIBLE GAMES MAIN MENU (M)"
  148. 1320 GETH$:IFH$=""THEN1320
  149. 1330 IFH$="Y"THENNT=0:GOTO100
  150. 1340 IFH$="N"THEN1250
  151. 1342 IFH$="M"THEN2000
  152. 1350 GOTO1320
  153. 1360 RESTORE
  154. 1370 GOTO380
  155. 1380 DATA "IN WHICH SECTION OF THE BIBLE IS THE","BOOK OF NEHEMIAH?"
  156. 1390 DATA "SEE INDEX OF BIBLE","OLD TESTAMENT","OLD TESTAMENT","NEW TESTAMENT"
  157. 1400 DATA "IN WHAT CAPITOL CITY DID NEHEMIAH","ORIGINALLY LIVE?","NEHEMIAH 1:1"
  158. 1410 DATA "SUSA","SUSA","JERUSALEM"
  159. 1420 DATA "NEHEMIAH WEPT BECAUSE THE WALLS OF","WHAT CITY WERE BROKEN DOWN?"
  160. 1430 DATA "NEHEMIAH 1:3-4","JERUSALEM","BABYLON","JERUSALEM"
  161. 1440 DATA "WHAT WAS NEHEMIAH'S JOB FOR KING","ARTAXERXES?"
  162. 1450 DATA "NEHEMIAH 1:11","CUPBEARER","GENERAL","CUPBEARER"
  163. 1460 DATA "WHAT DID NEHEMIAH RECEIVE FROM THE"
  164. 1470 DATA "KING SO THAT HE COULD TRAVEL TO JUDAH?","NEHEMIAH 2:7","LETTERS"
  165. 1480 DATA "LETTERS","MONEY"
  166. 1490 DATA "WHEN DID NEHEMIAH SECRETLY SURVEY THE","WALLS OF JERSUALEM?"
  167. 1500 DATA "NEHEMIAH 2:12","BY NIGHT","ON A SABBATH","BY NIGHT"
  168. 1510 DATA "WHEN THEY BEGAN REBUILDING THE WALLS,"
  169. 1520 DATA "WHAT DID THEIR ENEMIES ACCUSE THEM OF?"
  170. 1530 DATA "NEHEMIAH 2:19","REBELLION","INIQUITY","REBELLION"
  171. 1540 DATA "SOON THE WALL WAS HALF DONE BECAUSE"
  172. 1550 DATA"THE PEOPLE WERE WILLING TO [175][175][175][175][175][175]?","NEHEMIAH 4:6","WORK","WORK"
  173. 1560 DATA "FIGHT"
  174. 1570 DATA "WHEN THEIR ENEMIES THREATENED THEM,"
  175. 1580 DATA"WHAT DID THEY KEEP BY THEIR SIDE?","NEHEMIAH 4:15-21","WEAPONS"
  176. 1590 DATA "WEAPONS","ESCAPE PLANS"
  177. 1600 DATA "CONCENTRATION ON REBUILDING THE WALLS"
  178. 1610 DATA "SOON LED TO WHAT KIND OF PROBLEMS?","NEHEMIAH 5:1-13","ECONOMIC"
  179. 1620 DATA "REBELLION","ECONOMIC"
  180. 1630 DATA "SOON THE WALLS WERE FINISHED, BUT WHAT"
  181. 1640 DATA "REMAINED UNFINISHED?","NEHEMIAH 6:1","THE GATES","THE TEMPLE"
  182. 1650 DATA "THE GATES"
  183. 1660 DATA "WHY DID NEHEMIAH REFUSE TO GO WHEN HIS"
  184. 1670 DATA "ENEMIES TRIED TO MEET WITH HIM?","NEHEMIAH 6:2-3","WAS WORKING"
  185. 1680 DATA "WAS WORKING","WAS SCARED"
  186. 1690 DATA "WHEN THE WORK WAS COMPLETELY FINISHED,"
  187. 1700 DATA "ALL KNEW [164][164][164][164][164] HAD HELPED THEM FINISH?","NEHEMIAH 6:16","GOD"
  188. 1710 DATA "PHAROAH","GOD"
  189. 1720 DATA "WHAT OTHER GREAT PROJECT WAS THEN"
  190. 1730 DATA "UNDERTAKEN BY THE JEWS?","NEHEMIAH 7:5","CENSUS","AQUADUCT","CENSUS"
  191. 1740 DATA "WHO READ AND TAUGHT THE WORD OF GOD","TO THE PEOPLE?"
  192. 1750 DATA "NEHEMIAH 8:2-3","EZRA","EZRA","NEHEMIAH"
  193. 1760 DATA "EZRA AND THE PRIESTS NOT ONLY READ THE"
  194. 1770 DATA "LAW, BUT THEY DID WHAT ELSE WITH IT?"
  195. 1780 DATA "NEHEMIAH 8:8","INTERPRETED IT","INTERPRETED IT"
  196. 1790 DATA "COPIED IT"
  197. 1800 DATA "LATER NEHEMIAH HAD GONE TO WHAT"
  198. 1810 DATA "CITY?","NEHEMIAH 13:6","BABYLON","NINEVAH","BABYLON"
  199. 1820 DATA "WHEN NEHEMIAH RETURNED TO JERSUALEM"
  200. 1830 DATA "WHAT DID HE FIND WAS BEING VIOLATED?","NEHEMIAH 13:15","THE SABBATH"
  201. 1840 DATA "THE TREATIES","THE SABBATH"
  202. 1850 DATA "-1","-1","-1","-1","-1","-1"
  203. 2000 POKE198,4:PRINT"[147]LOAD"CHR$(34)"BIBLE MENU";:PRINTCHR$(34)",8";
  204. 2002 POKE631,13:POKE632,82:POKE633,117:POKE634,13:END
  205.